home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / [_Time_Syn1802171072004.psc / modMain.bas < prev    next >
BASIC Source File  |  2004-08-18  |  1KB  |  46 lines
  1. Attribute VB_Name = "modMain"
  2. Option Explicit
  3.  
  4. 'Change to your closest Internet Time Server
  5. 'Public Const TIME_SERVER As String = "ntps1-0.cs.tu-berlin.de" ' "Rolex.PeachNet.edu"
  6. Public TIME_SERVER As String '= "ntps1-0.cs.tu-berlin.de" ' "Rolex.PeachNet.edu"
  7. Public ServerIndex As Integer
  8. Public BatchMode As Boolean
  9.  
  10. Sub Main()
  11.  
  12. If App.PrevInstance Then End
  13.  
  14. TIME_SERVER = GetSetting(App.EXEName, "Timeserver", "Name", "ntps1-0.cs.tu-berlin.de")
  15. ServerIndex = Val(GetSetting(App.EXEName, "Timeserver", "Index", "1"))
  16.  
  17.         If Command() = "/now" Or Command() = "/NOW" Then
  18.             BatchMode = True
  19.             End If
  20.         
  21.         'Open Form and let user use the interface
  22.         Dim oForm As frmMain
  23.         Set oForm = New frmMain
  24.         oForm.WindowState = vbNormal
  25.         oForm.Show 'vbModal
  26.         oForm.Refresh
  27.     
  28. End Sub
  29.  
  30. Public Function dtString() As String
  31.     'Quick Date and Time string w/full 4 digit year
  32.     dtString = Format(Now, "dd/mm/yyyy hh:mm:ss") 'AM/PM -
  33. End Function
  34.  
  35. Public Sub SetTime(sTimeServer As String)
  36.     Dim oInetTime As cInetTime
  37.     Set oInetTime = New cInetTime
  38.         
  39.     oInetTime.TimeServer = sTimeServer
  40.     oInetTime.SetTime
  41.     
  42.     Set oInetTime = Nothing
  43.  
  44. End Sub
  45.  
  46.